home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok02.lha / M2Code / M2ACode / M2ACodeDemo / Draw.mod < prev    next >
Encoding:
Text File  |  1993-08-16  |  1.1 KB  |  40 lines
  1. MODULE Draw;
  2.  
  3. FROM DrawLines IMPORT DrawLines;
  4. FROM SYSTEM IMPORT ADR,ADDRESS,BYTE;
  5. FROM Intuition IMPORT ScreenPtr,ScreenFlags,ScreenFlagSet,customScreen,
  6.        NewScreen,OpenScreen,CloseScreen;
  7. FROM Graphics IMPORT ViewModeSet,ViewModes,DrawModeSet,DrawModes,SetDrMd,
  8.        Draw,Move,GfxBasePtr;
  9. FROM Exec IMPORT OpenLibrary,CloseLibrary;
  10.  
  11. VAR
  12.   MyScreen: ScreenPtr;
  13.   MyNewScreen: NewScreen;
  14.   x: INTEGER;
  15.   GraphicsBase: ADDRESS; (* woher kann man GfxBase importieren ??? *)
  16.  
  17. BEGIN
  18.  
  19.   GraphicsBase := OpenLibrary(ADR("graphics.library"),0);
  20.  
  21.   WITH MyNewScreen DO
  22.     leftEdge := 0;    topEdge  := 0;
  23.     width    := 640;  height   := 256;  depth   := 1;
  24.     detailPen:= 0;    blockPen := 1;
  25.     viewModes:= ViewModeSet{hires};
  26.     type     := ScreenFlagSet{screenQuiet}+customScreen;
  27.     font     := NIL; defaultTitle := NIL; gadgets := NIL;
  28.     customBitMap := NIL;
  29.   END;
  30.   MyScreen := OpenScreen(MyNewScreen);
  31.   SetDrMd(ADR(MyScreen^.rastPort),DrawModeSet{complement});
  32.  
  33.   DrawLines(ADR(MyScreen^.rastPort),ADDRESS(GraphicsBase));
  34.  
  35.   CloseScreen(MyScreen);
  36.  
  37.   CloseLibrary(GraphicsBase);
  38.  
  39. END Draw.
  40.